Автостарт программы "Ранний" по ячейке 65358/59 (RAMTOP-9)
с проходом сквозь столбик SP

God Mode:

New File [Автозапуск 1-2.tzx]				; Создать новую виртуальную кассету для записи данных
Cassette Recorder [Record]				; Включить виртуальный магнитофон на запись, открыв телепортационное окно 1232 поставив команду LD H, H
Debugger						; Открыть отладчик для ввода данных
Dec							; Переключить отображение чисел в десятичный режим
Go To 65220						; Переместиться по памяти на нужный адрес
65220 <-- 253 54 0 255 49 84 255 237 115 61 92 241	; Приведение в порядок системы после загрузки
65232 <-- 251 253 203 2 134 17 225 254 1 39 0		; и подготовка вывода текста на экран
65243 <-- 205 60 32 195 3 19 22 11 0 18 1 16 2
65256 <--TPAXHEM CTPAX					; Выводимый текст
65269 <-- 32 80 65 72 72 144 77 32 65 66 84 79
65281 <--CTAPTOM					; Выводимый текст
65318 <-- 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0	; Очистка SP области от мусора для идеальной записи
65338 <-- 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0	; Очистка SP области от мусора для идеальной записи
65358 <-- 65220						; Адрес запуска своей программы
65360 <-- 0 0 0	0 0 0 0 62				; Очистка остатков SP и установка фундамента
65368 <-- 0 66 70 74 82 98 66 0				; Буква И UDG

; Запись блока с автосбросом

Go To 17996						; Переместиться по памяти на нужный адрес
17996 <-- 65220 0					; Стартовый адрес для блока данных
18000 <-- 3						; Тип блока Bytes:
18001 <-- TPAX-CTPAX					; Имя заголовка
18011 <-- 156 65220					; Планируемая длина и стартовый адрес для заголовка

IX <-- 18000						; Указать место размещения шаблона заголовка
SP <-- 17996						; Cоздать временную SP-башенку в любом свободном месте
PC <-- 2436						; Установить Стрелочку на подпрограмму записи
Trace							; Выйти из отладчика и запустить программу
Cassette Recorder [Stop]				; Остановить магнитофон и закрыть телепортационное окно в адресе 1232 вернув команду EX AF, AF'

BASIC <-- LOAD ""CODE ENTER				; Выполнить BASIC фрагмент натуральным способом
Cassette Recorder [Play]				; Включить магнитофон на воспроизведение


Assembler EmuzWin:

Проверить работоспособность!!!

	ORG 65220

CTAPT:	LD (IY+0), 255				; Код вывода сообщения 0 OK для красоты
	LD SP, 65364				; Восстановление возврата в BASIC 
	LD (23613), SP
	POP AF
	EI
	RES 0, (IY+2)
	LD DE, TEKCT
	LD BC, KOHETC-TEKCT
	CALL 8252
	JP 4867
TEKCT:	DEFB 22, 11, 3, 18, 1, 16, 2, 'TPAXHEM CTPAX'
	DEFB 32, 80, 65, 72, 72, 144, 77, 32, 'ABTOCTAPTOM'
KOHETC:

	ORG 65318

	DEFW 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0	; Зануление ненужных значений SP для красоты записи

	ORG 65358

	DEFW CTAPT				; Адрес запуска своей программы
	DEFB 0, 0, 0, 0, 0, 0, 0		; Зануление ненужных значений для красоты
	DEFB 62					; Фундамент SP-башенки
	DEFB 0, 66, 70, 74, 82, 98, 66, 0	; Буква И UDG
